19.3 Das »ProgressBar«-Steuerelement 
Manchmal führen Anwendungen einen länger dauernden Arbeitsprozess aus. Denken Sie nur an das Kopieren von Dateien, das Downloaden aus dem Internet und einfach an eine länger dauernde Rechenoperation – alles Vorgänge, die dem Anwender Geduld abverlangen, solange es sich nicht um ein multithreading-fähiges Programm handelt.
Ein Programm, das eine länger andauernde Aufgabe ausführt, sollte den Benutzer davon in Kenntnis setzen, damit dieser nicht denkt, die Anwendung reagiere nicht mehr. Man kann das dadurch erreichen, dass man für die Dauer der Ausführung den Mauszeiger als Sanduhr darstellt. Dazu muss man die Eigenschaft Cursor der Form vor dem Auftreten der Operation auf
| Me.Cursor = Cursors.WaitCursor
|
einstellen. Nach der Beendigung darf nicht vergessen werden, das ursprüngliche Cursorsymbol wieder herzustellen (meistens dürfte es sich um die Einstellung Cursors.Default handeln).
Das ist ein zwar ein Mittel, um auf die Hintergrundtätigkeit der Anwendung aufmerksam zu machen. Wie lange diese andauern wird, kann der Anwender jedoch nicht im Geringsten abschätzen. Jetzt schlägt die Stunde des ProgressBar-Steuerelements, das dem Anwender über einen Fortschrittsbalken den Stand der Operation optisch vermittelt.
Die Programmierung dieses Steuerelements ist denkbar einfach und erinnert an die beiden zuvor behandelten Steuerelemente. Zur Entwicklungszeit legen Sie die Eigenschaften Maximum und Minimum fest, zur Laufzeit ermitteln Sie aus dem aktuellen Stand der Operation den Wert der Eigenschaft Value.
Sie können Value direkt einen Wert zuweisen, Sie können aber auch die Methode PerformStep aufrufen:
Jeder Aufruf bewirkt die Erhöhung der aktuellen Position der Statusanzeige. Dabei wird in Schrittweiten vorgegangen, die von der Eigenschaft Step vorgegeben wird.
Neu in .NET Framework 2.0 ist die Ergänzung der Eigenschaften Style und MarqueeAnimationSpeed. Mit der erstgenannten können Sie den Anzeigestil des Fortschrittsbalkens festlegen. Dazu gibt es drei Einstellmöglichkeiten, die Sie der folgenden Tabelle entnehmen können.
Tabelle 19.4 Die Mitglieder der Enumeration »ProgressBarStyle«
| ProgressBarStyle-Member
|
Beschreibung
|
| Blocks
|
Zeigt im Steuerelement eine steigende Anzahl unterteilter Blöcke an.
|
| Continuous
|
Zeigt im Steuerelement einen durchgehenden Balken an.
|
| Marquee
|
Zeigt im Steuerelement Blöcke an, die wie eine Laufschrift den Anzeigebereich durchlaufen.
|
Lautet die Einstellung ProgressBarStyle.Marquee, entscheidet die Eigenschaft Marquee- AnimationSpeed darüber, wie schnell die Laufbalken durch den Anzeigebereich laufen. Die Angabe ist in Millisekunden. Allerdings wird dieser Stil nur von Windows XP und Windows 2003 unterstützt.
Ein Beispielprogramm
Im folgenden Beispielprogramm wird eine Datei geöffnet und deren Inhalt in einer Textbox ausgegeben. Da der Ladevorgang eine längere Zeit in Anspruch nimmt, wird der Ladestatus in einem ProgressBar-Steuerelement angezeigt (siehe Abbildung 19.3).
Hier klicken, um das Bild zu Vergrößern
Abbildung 19.3 Die Form des Beispielprogramms »ProgressBarDemo«
Zu Demonstrationszwecken wird die Datei im Load-Ereignishandler der Form erzeugt. Dabei werden 20000 Zeichen in die Datei geschrieben, in einer Schleife jeweils immer die Zeichen des Alphabets.
| ' ----------------------------------------------------------
|
| ' Beispiel: ...\Kapitel 19\ProgressBarDemo
|
| ' ----------------------------------------------------------
|
| Imports System.IO
|
| Public Class Form1
|
| Private myfile As String = "C:\Test.txt"
|
| Private Sub Form1_Load(...) Handles MyBase.Load
|
| ' Datei erzeugen und mit Zeichen füllen
|
| Dim fs As FileStream = File.Open(myfile, FileMode.Create)
|
| Dim b As Byte = 97
|
| For i As Integer = 0 To 20000
|
| b = b + 1
|
| fs.WriteByte(b)
|
| If b = 123 Then
|
| b = 97
|
| End If
|
| Next
|
| fs.Close()
|
| End Sub
|
| Private Sub Button1_Click(...) Handles Button1.Click
|
| Me.Cursor = Cursors.WaitCursor
|
| Dim var As Integer = 0
|
| Dim text As String = ""
|
| TextBox1.Clear()
|
| TextBox1.Refresh()
|
| Dim fi As FileInfo = New FileInfo(myfile)
|
| ' ProgressBar-Maximum auf Dateigröße einstellen
|
| proFuellen.Maximum = fi.Length
|
| ' Schrittweite einstellen
|
| proFuellen.Step = 1
|
| ' Datei öffnen
|
| Dim fs As FileStream = File.Open(myfile, FileMode.Open)
|
| Do While (True)
|
| var = fs.ReadByte()
|
| ' wenn Datei eingelesen, Schleife beenden
|
| If (var = –1) Then
|
| Exit Do
|
| End If
|
| text &= Convert.ToChar(var)
|
| ' Fortschrittsbalken einstellen
|
| proFuellen.PerformStep()
|
| Loop
|
| TextBox1.Text = text
|
| fs.Close()
|
| proFuellen.Value = 0
|
| Me.Cursor = Cursors.Default
|
| End Sub
|
| Private Sub Form1_FormClosed(...) Handles MyBase.FormClosed
|
| File.Delete(myfile)
|
| End Sub
|
| End Class
|
Im Ereignishandler des Click-Ereignisses der Schaltfläche wird nach einigen Vorarbeiten die Größe der einzulesenden Datei ermittelt, um die Eigenschaft Maximum des ProgressBar-Steuerelements einzustellen. Dafür eignet sich ein Objekt von Typ FileInfo, dessen Eigenschaft Length ausgewertet wird. Als Schrittweite des Fortschrittsbalkens wird der Wert 1 festgelegt.
Für das Öffnen der Datei bietet sich ein Objekt vom Typ FileStream an, weil in einer Schleife die Datei byteweise mit ReadByte eingelesen werden kann und sich damit auch ein Ansatzpunkt anbietet, den Fortschrittsbalken zu aktualisieren. Sind alle Daten eingelesen, wird die Schleife beendet und der Inhalt der Datei, der sich in der Variablen text angesammelt hat, in der Textbox angezeigt. Zum Schluss muss noch der FileStream geschlossen und das ProgressBar-Steuerelement in seine Ursprungsposition zurückgesetzt werden. Während der Ereignishandler ausgeführt wird, zeigt der Mauscursor eine Sanduhr an.
Beim Schließen der Form wird zum Schluss auch noch die erstellte Datei gelöscht.
|
